nahodna barva

Otázka od: Ales Kresta

20. 9. 2004 22:51

Zdravim,
mam takovyto stupidni dotaz: jak muzu nejak nahodne vybrat barvu.... cetl
jsem si napovedu a tam je Tcolor definovany jako $aabbccdd, kde bb,cc,dd
jsou RGB slozky v hexadecimalnim zapisu (tusim,ted nevim presne).... no a ja
bych chtel tu barvu vybrat nejak nahodne tzn. neco jako:

var barva:Tcolor;

barva:=$+inttohex(random(256))+inttohex(random(256.........

ale nevim jak to tak rozchodit.... poradte prosim

Odpovedá: Karel Pecinka

20. 9. 2004 23:01

var
  s: String;
  barva: TColor;
..

try
  s:='$'+inttohex(random(256))+inttohex(random(256.........
  Barva:=StringToColor(s);
except
  Barva:=clWhite;
end;

> var barva:Tcolor;
>
> barva:=$+inttohex(random(256))+inttohex(random(256.........

Odpovedá: Vlastimil Burian

20. 9. 2004 23:20

jak muzu nejak nahodne vybrat barvu

----------------------

var
Barva : Tcolor;

Barva := RGB(Random(255), Random(255), Random(255));

Odpovedá: Karel Rys

21. 9. 2004 6:31

Vlastimil Burian dne 21 Sep 2004 v 0:15:

> var
> Barva : Tcolor;
>
> Barva := RGB(Random(255), Random(255), Random(255));

Random takto volane myslim 255 nikdy nevrati, takze bych bud pouzil
Random(256), nebo by mozna
fungovalo Barva:=Random($1000000);

Karel Rys

Odpovedá: Vlastimil Burian

21. 9. 2004 13:48

to je pravda jelikoz random bere parametr jako otevreny konec intervalu ale
z praktickyho hlediska to mas jedno

nezapomen dat treba do ooncreate formulare Randomize;

> > var
> > Barva : Tcolor;
> >
> > Barva := RGB(Random(255), Random(255), Random(255));
>
> Random takto volane myslim 255 nikdy nevrati, takze bych bud pouzil
Random(256), nebo by mozna
> fungovalo Barva:=Random($1000000);